##5.1 Editando alguns parmetros grficos
(esaligna<-read.table(file="esaligna.csv",sep=",",header=TRUE,as.is=T))
##Crie um grfico de disperso entre dap e ht com: 
#1. Legendas dos eixos com nomes das variveis e suas unidades
#2. Marcaes do eixos (ticks) para dentro da rea do grfico 
#3. Apenas dois eixos (formato L)
#4. Ttulo informativo
#5. Tamanho das fontes maiores que o padro
par(cex=1.5)
plot(esaligna$dap,esaligna$ht,xlab="dap(cm)",ylab="ht(m)",tcl=0.3,bty="L",main="Disperso esaligna DAP/ht")

##5.2 Dois grficos juntos
#1. Use as variveis dap e talhao para construir dois grficos, colocando-os lado a lado. O primeiro deve ser um grfico de desenho de caixa (boxplot) da varivel dap em funo do fator talho. O segundo deve ter apenas a mdia e uma barra de desvio-padro do dap, para cada talho.
#2. Insira tambm uma letra para dizer qual  o grfico a e qual  o b (tanto faz, quem  um e quem  outro).
(media<-tapply(X=esaligna$dap, INDEX=esaligna$talhao, FUN=mean))
(desvio<-tapply(X=esaligna$dap, INDEX=esaligna$talhao, FUN=sd))
(m.med_sd<- matrix(c(media, desvio),6,2,))
par(mfrow=c(1,2))
boxplot(esaligna$dap~esaligna$talhao)
mtext("a")
plot(m.med_sd[,1], xlab="talho", ylab="dap",ylim=c(0,30), xlim=c(1,6))
segments(x0=c(1:6) ,y0=media-desvio, x1=c(1:6), y1=media+desvio)
mtext("b")

##Leia os dados deste arquivo e usando as variveis x1 e y1 e x2 e y2 tente reproduzir esta figura
(dadosxy<-read.table(file="exercicio3.txt",sep=",",header=TRUE,as.is=T))
par(mfrow=c(1,2),tcl=0.3,bty="L",mar=c(4,4,1,1))
plot(dadosxy$x1,dadosxy$y1,pch=17,cex=1.5,cex.lab=1.5,xlab="Log(Patch size(ha)",ylab="Euclidean distances",ylim = c(0, 3),xlim = c(0.5, 2.3))
abline(lm(dadosxy$y1~dadosxy$x1),lwd=2.5)
text(2.3,3,"a",cex=1.5)
dadosxy$categoria <- factor(dadosxy$y2, labels = c("Small", "Medium\nEdge", "Medium\nInterior","Large\nEdge","Large\nInterior", "Control"))
boxplot(dadosxy$x2~dadosxy$categoria,ylim=c(0,3))
text(6,3,"b",cex=1.5)
text(1,3,"*",cex=2.5)	
text(2,3,"*",cex=2.5)
text(3,3,"**",cex=2.5)
text(4,3,"*",cex=2.5)
text(5,3,"***",cex=2.5)
